home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / webmon_1 / frmnewga.frm (.txt) < prev    next >
Visual Basic Form  |  1999-08-09  |  7KB  |  196 lines
  1. VERSION 5.00
  2. Begin VB.Form frmNewgateWay 
  3.    BackColor       =   &H00FF8080&
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   3060
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   4065
  9.    BeginProperty Font 
  10.       Name            =   "MS Sans Serif"
  11.       Size            =   9.75
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    LinkTopic       =   "Form1"
  19.    ScaleHeight     =   3060
  20.    ScaleWidth      =   4065
  21.    ShowInTaskbar   =   0   'False
  22.    StartUpPosition =   3  'Windows Default
  23.    Begin VB.TextBox txtGateWayPort 
  24.       Height          =   270
  25.       Left            =   1560
  26.       TabIndex        =   6
  27.       Top             =   1920
  28.       Width           =   2295
  29.    End
  30.    Begin VB.TextBox txtGateWayIP 
  31.       Height          =   270
  32.       Left            =   1560
  33.       TabIndex        =   5
  34.       Top             =   1320
  35.       Width           =   2295
  36.    End
  37.    Begin VB.TextBox txtGateWayName 
  38.       Height          =   270
  39.       Left            =   1560
  40.       TabIndex        =   4
  41.       Top             =   720
  42.       Width           =   2295
  43.    End
  44.    Begin VB.Image Image2 
  45.       Height          =   480
  46.       Left            =   1320
  47.       Picture         =   "frmNewgateWay.frx":0000
  48.       Top             =   2400
  49.       Width           =   480
  50.    End
  51.    Begin VB.Image Image1 
  52.       Height          =   480
  53.       Left            =   2400
  54.       Picture         =   "frmNewgateWay.frx":0442
  55.       Top             =   2400
  56.       Width           =   480
  57.    End
  58.    Begin VB.Label Label4 
  59.       Alignment       =   2  'Center
  60.       BackColor       =   &H00FF8080&
  61.       Caption         =   "Add New Server"
  62.       BeginProperty Font 
  63.          Name            =   "MS Sans Serif"
  64.          Size            =   13.5
  65.          Charset         =   0
  66.          Weight          =   400
  67.          Underline       =   0   'False
  68.          Italic          =   0   'False
  69.          Strikethrough   =   0   'False
  70.       EndProperty
  71.       Height          =   495
  72.       Left            =   480
  73.       TabIndex        =   3
  74.       Top             =   120
  75.       Width           =   3615
  76.    End
  77.    Begin VB.Label Label3 
  78.       BackColor       =   &H00FF8080&
  79.       Caption         =   "UDP Port"
  80.       BeginProperty Font 
  81.          Name            =   "MS Sans Serif"
  82.          Size            =   8.25
  83.          Charset         =   0
  84.          Weight          =   400
  85.          Underline       =   0   'False
  86.          Italic          =   0   'False
  87.          Strikethrough   =   0   'False
  88.       EndProperty
  89.       Height          =   495
  90.       Left            =   240
  91.       TabIndex        =   2
  92.       Top             =   1920
  93.       Width           =   1215
  94.    End
  95.    Begin VB.Label Label2 
  96.       BackColor       =   &H00FF8080&
  97.       Caption         =   "Server Name"
  98.       Height          =   375
  99.       Left            =   240
  100.       TabIndex        =   1
  101.       Top             =   720
  102.       Width           =   1215
  103.    End
  104.    Begin VB.Label Label1 
  105.       BackColor       =   &H00FF8080&
  106.       Caption         =   "Server IP"
  107.       Height          =   375
  108.       Left            =   240
  109.       TabIndex        =   0
  110.       Top             =   1320
  111.       Width           =   1095
  112.    End
  113. Attribute VB_Name = "frmNewgateWay"
  114. Attribute VB_GlobalNameSpace = False
  115. Attribute VB_Creatable = False
  116. Attribute VB_PredeclaredId = True
  117. Attribute VB_Exposed = False
  118. Dim mmflag As Boolean
  119. Dim sax As Integer
  120. Dim Say As Integer
  121. Option Explicit
  122. Private Sub Form_Load()
  123.     If blnEdit = True Then
  124.             Label4 = "Edit Server"
  125.              txtGateWayPort = LSetting("GateWayPort" & intGateClicked)
  126.             txtGateWayIP = LSetting("GateWayIP" & intGateClicked)
  127.             txtGateWayName = LSetting("GateWayName" & intGateClicked)
  128.     End If
  129. End Sub
  130. Private Sub Image1_Click()
  131.  If blnEdit = True Then
  132.         'editing server
  133.         If FrmGateWay.lblGateWay(FrmGateWay.lblGateWay.UBound).Visible = True Then
  134.             MsgBox "No more servers", vbOKOnly, "Too many Servers"
  135.             Exit Sub
  136.         End If
  137.             If txtGateWayName <> "" And txtGateWayIP <> "" And txtGateWayPort <> "" Then
  138.                         SSetting "GateWayName" & intGateClicked, txtGateWayName
  139.                         SSetting "GateWayIP" & intGateClicked, txtGateWayIP
  140.                         SSetting "GateWayPort" & intGateClicked, txtGateWayPort
  141.                         SayThis "Server " & txtGateWayName & " Updated"
  142.             End If
  143.             modWeb.refresh
  144.             Unload Me
  145.             Else
  146.                 If txtGateWayName <> "" And txtGateWayPort <> "" And txtGateWayIP <> "" Then
  147.                     If IsNumeric(txtGateWayPort) = True And InStr(1, txtGateWayIP, ".") > 0 Then
  148.                         SSetting "GateWayName" & intNoOfGateServers, txtGateWayName
  149.                         SSetting "GateWayPort" & intNoOfGateServers, txtGateWayPort
  150.                         SSetting "GateWayIP" & intNoOfGateServers, txtGateWayIP
  151.                         intNoOfGateServers = intNoOfGateServers + 1
  152.                         SSetting "NoOfGateWays", intNoOfGateServers
  153.                         FrmGateWay.blnAllowAlarm = False
  154.                         FrmGateWay.tmrStarted.Enabled = True
  155.                     End If
  156.                 End If
  157.             Unload Me
  158.             modWeb.refresh
  159. End If
  160. End Sub
  161. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  162.    Dim fml As Long
  163.    Dim fmt As Long
  164.    Dim a As Integer
  165.    If mmflag = True Then
  166.       fml = Me.Left: fmt = Me.Top
  167.       If X > sax Then Me.Left = fml + (X - sax)
  168.         If X < sax Then Me.Left = fml - (sax - X)
  169.       If Y > Say Then Me.Top = fmt + (Y - Say)
  170.       If Y < Say Then Me.Top = fmt - (Say - Y)
  171.    End If
  172.    Image1.BorderStyle = 0
  173.    Image2.BorderStyle = 0
  174.    End Sub
  175. Private Sub form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  176. If mmflag = False Then
  177.       sax = X
  178.       Say = Y
  179.       mmflag = True
  180.    End If
  181.    Me.MousePointer = vbSizePointer
  182.    End Sub
  183. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  184.     mmflag = False
  185.    Me.MousePointer = vbDefault
  186. End Sub
  187. Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  188.     Image1.BorderStyle = 1
  189. End Sub
  190. Private Sub Image2_Click()
  191.     Unload Me
  192. End Sub
  193. Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  194.     Image2.BorderStyle = 1
  195. End Sub
  196.